home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1459.dms / var1459.adf / LowLevelGraphics / Example7.c < prev    next >
C/C++ Source or Header  |  1992-04-28  |  10KB  |  306 lines
  1. /***********************************************************/
  2. /*                                                         */
  3. /* Amiga C Encyclopedia (ACE) V3.0      Amiga C Club (ACC) */
  4. /* -------------------------------      ------------------ */
  5. /*                                                         */
  6. /* Book:    ACM Graphics                Amiga C Club       */
  7. /* Chapter: LowLevelGraphics            Tulevagen 22       */
  8. /* File:    Example7.c                  181 41  LIDINGO    */
  9. /* Author:  Anders Bjerin               SWEDEN             */
  10. /* Date:    92-04-28                                       */
  11. /* Version: 1.00                                           */
  12. /*                                                         */
  13. /*   Copyright 1992, Anders Bjerin - Amiga C Club (ACC)    */
  14. /*                                                         */
  15. /* Registered members may use this program freely in their */
  16. /*     own commercial/noncommercial programs/articles.     */
  17. /*                                                         */
  18. /***********************************************************/
  19.  
  20. /* This example demonstrates how to create a ViewPort with the special */
  21. /* display mode "Hold and Modify".                                     */
  22. /*                                                                     */
  23. /* -------------------------------------------------------------       */
  24. /* BitPlane                                                            */
  25. /*  543210   Description                                               */
  26. /* -------------------------------------------------------------       */
  27. /*  00XXXX   One of the base colours will be used.                     */
  28. /*  01XXXX   The pixel to left will be dublicated, and the blue        */
  29. /*           value will be set by the first four bits (XXXX).          */
  30. /*  10XXXX   The pixel to left will be dublicated, and the red         */
  31. /*           value will be set by the first four bits (XXXX).          */
  32. /*  01XXXX   The pixel to left will be dublicated, and the green       */
  33. /*           value will be set by the first four bits (XXXX).          */
  34. /* -------------------------------------------------------------       */
  35.  
  36.  
  37. #include <intuition/intuition.h>
  38. #include <graphics/gfxbase.h>
  39.  
  40.  
  41. /* Whith help of this macro we can write numbers in binary, and it */
  42. /* will be translated to normal decimal numbers. For example:      */
  43. /* BIN(0,1,0,1,0,1) will be 21 (010101[b] -> 21[d])                */
  44. #define BIN(a,b,c,d,e,f) ((a)<<5|(b)<<4|(c)<<3|(d)<<2|(e)<<1|(f))
  45.  
  46.  
  47. #define WIDTH   320 /* 320 pixels wide (low resolution)             */
  48. #define HEIGHT  200 /* 200 lines high (non interlaced NTSC display) */ 
  49. #define DEPTH     6 /* 6 BitPlanes + HAM = 4096 colours.            */
  50. #define COLOURS  16 /* 16 base colours.                             */
  51.  
  52.  
  53. struct IntuitionBase *IntuitionBase;
  54. struct GfxBase *GfxBase;
  55.  
  56.  
  57. struct View my_view;
  58. struct View *my_old_view;
  59. struct ViewPort my_view_port;
  60. struct RasInfo my_ras_info;
  61. struct BitMap my_bit_map;
  62. struct RastPort my_rast_port;
  63.  
  64.  
  65. /* The base colours: */
  66. UWORD my_color_table[] =
  67. {
  68.   0x000, /* Colour  0, Black */
  69.   0x111, /* Colour  1,       */
  70.   0x222, /* Colour  2,   |   */
  71.   0x333, /* Colour  3,   |   */
  72.   0x444, /* Colour  4,   |   */
  73.   0x555, /* Colour  5,   |   */
  74.   0x666, /* Colour  6,   |   */
  75.   0x777, /* Colour  7,   |   */
  76.   0x888, /* Colour  8,   |   */
  77.   0x999, /* Colour  9,   |   */
  78.   0xAAA, /* Colour 10,   |   */
  79.   0xBBB, /* Colour 11,   |   */
  80.   0xCCC, /* Colour 12,   |   */
  81.   0xDDD, /* Colour 13,   V   */
  82.   0xEEE, /* Colour 14,       */
  83.   0xFFF, /* Colour 15, White */
  84. };
  85.  
  86.  
  87. void clean_up();
  88. void main();
  89.  
  90.  
  91. void main()
  92. {
  93.   UWORD *pointer;
  94.   int loop;
  95.  
  96.  
  97.   /* Open the Intuition library: */
  98.   IntuitionBase = (struct IntuitionBase *)
  99.     OpenLibrary( "intuition.library", 0 );
  100.   if( !IntuitionBase )
  101.     clean_up( "Could NOT open the Intuition library!" );
  102.  
  103.   /* Open the Graphics library: */
  104.   GfxBase = (struct GfxBase *)
  105.     OpenLibrary( "graphics.library", 0 );
  106.   if( !GfxBase )
  107.     clean_up( "Could NOT open the Graphics library!" );
  108.  
  109.  
  110.   /* Save the current View, so we can restore it later: */
  111.   my_old_view = GfxBase->ActiView;
  112.  
  113.  
  114.   /* 1. Prepare the View structure, and give it a pointer to */
  115.   /*    the first ViewPort:                                  */
  116.   InitView( &my_view );
  117.   my_view.ViewPort = &my_view_port;
  118.  
  119.  
  120.   /* 2. Prepare the ViewPort structure, and set some important values: */
  121.   InitVPort( &my_view_port );
  122.   my_view_port.DWidth = WIDTH;         /* Set the width.                */
  123.   my_view_port.DHeight = HEIGHT;       /* Set the height.               */
  124.   my_view_port.RasInfo = &my_ras_info; /* Give it a pointer to RasInfo. */
  125.   my_view_port.Modes = HAM;            /* Hold And Moduify.             */
  126.  
  127.  
  128.   /* 3. Get a colour map, link it to the ViewPort, and prepare it: */
  129.   my_view_port.ColorMap = (struct ColorMap *) GetColorMap( COLOURS );
  130.   if( my_view_port.ColorMap == NULL )
  131.     clean_up( "Could NOT get a ColorMap!" );
  132.  
  133.   /* Get a pointer to the colour map: */
  134.   pointer = (UWORD *) my_view_port.ColorMap->ColorTable;
  135.  
  136.   /* Set the colours: */
  137.   for( loop = 0; loop < COLOURS; loop++ )
  138.     *pointer++ = my_color_table[ loop ];
  139.  
  140.  
  141.   /* 4. Prepare the BitMap: */
  142.   InitBitMap( &my_bit_map, DEPTH, WIDTH, HEIGHT );
  143.  
  144.   /* Allocate memory for the Raster: */ 
  145.   for( loop = 0; loop < DEPTH; loop++ )
  146.   {
  147.     my_bit_map.Planes[ loop ] = (PLANEPTR) AllocRaster( WIDTH, HEIGHT );
  148.     if( my_bit_map.Planes[ loop ] == NULL )
  149.       clean_up( "Could NOT allocate enough memory for the raster!" );
  150.  
  151.     /* Clear the display memory with help of the Blitter: */
  152.     BltClear( my_bit_map.Planes[ loop ], RASSIZE( WIDTH, HEIGHT ), 0 );
  153.   }
  154.  
  155.   
  156.   /* 5. Prepare the RasInfo structure: */
  157.   my_ras_info.BitMap = &my_bit_map; /* Pointer to the BitMap structure.  */
  158.   my_ras_info.RxOffset = 0;         /* The top left corner of the Raster */
  159.   my_ras_info.RyOffset = 0;         /* should be at the top left corner  */
  160.                                     /* of the display.                   */
  161.   my_ras_info.Next = NULL;          /* Single playfield - only one       */
  162.                                     /* RasInfo structure is necessary.   */
  163.  
  164.   /* 6. Create the display: */
  165.   MakeVPort( &my_view, &my_view_port );
  166.   MrgCop( &my_view );
  167.  
  168.  
  169.   /* 7. Prepare the RastPort, and give it a pointer to the BitMap. */
  170.   InitRastPort( &my_rast_port );
  171.   my_rast_port.BitMap = &my_bit_map;
  172.   
  173.  
  174.   /* 8. Show the new View: */
  175.   LoadView( &my_view );
  176.  
  177.  
  178.   /* Set the draw mode to JAM1. FgPen's colour will be used. */
  179.   SetDrMd( &my_rast_port, JAM1 );
  180.  
  181.  
  182.  
  183.   /* Base colour 0: */
  184.   SetAPen( &my_rast_port, BIN(0,0,0,0,0,0) );
  185.   RectFill( &my_rast_port, 10, 10, 30, 130 );
  186.  
  187.  
  188.  
  189.   /* Change R to 3 (0011 = 3): */
  190.   SetAPen( &my_rast_port, BIN(1,0,0,0,1,1) );
  191.   RectFill( &my_rast_port, 30, 10, 50, 50 );
  192.  
  193.   /* Change R to 7 (0111 = 7): */
  194.   SetAPen( &my_rast_port, BIN(1,0,0,1,1,1) );
  195.   RectFill( &my_rast_port, 50, 10, 70, 50 );
  196.  
  197.   /* Change R to 11 (1011 = 11): */
  198.   SetAPen( &my_rast_port, BIN(1,0,1,0,1,1) );
  199.   RectFill( &my_rast_port, 70, 10, 90, 50 );
  200.  
  201.   /* Change R to 13 (1101 = 13): */
  202.   SetAPen( &my_rast_port, BIN(1,0,1,1,0,1) );
  203.   RectFill( &my_rast_port, 90, 10, 110, 50 );
  204.  
  205.   /* Change R to 15 (1111 = 15): */
  206.   SetAPen( &my_rast_port, BIN(1,0,1,1,1,1) );
  207.   RectFill( &my_rast_port, 110, 10, 130, 50 );
  208.  
  209.  
  210.  
  211.   /* Change B to 3 (0011 = 3): */
  212.   SetAPen( &my_rast_port, BIN(0,1,0,0,1,1) );
  213.   RectFill( &my_rast_port, 30, 50, 50, 90 );
  214.  
  215.   /* Change B to 7 (0111 = 7): */
  216.   SetAPen( &my_rast_port, BIN(0,1,0,1,1,1) );
  217.   RectFill( &my_rast_port, 50, 50, 70, 90 );
  218.  
  219.   /* Change B to 11 (1011 = 11): */
  220.   SetAPen( &my_rast_port, BIN(0,1,1,0,1,1) );
  221.   RectFill( &my_rast_port, 70, 50, 90, 90 );
  222.  
  223.   /* Change B to 13 (1101 = 13): */
  224.   SetAPen( &my_rast_port, BIN(0,1,1,1,0,1) );
  225.   RectFill( &my_rast_port, 90, 50, 110, 90 );
  226.  
  227.   /* Change B to 15 (1111 = 15): */
  228.   SetAPen( &my_rast_port, BIN(0,1,1,1,1,1) );
  229.   RectFill( &my_rast_port, 110, 50, 130, 90 );
  230.  
  231.  
  232.  
  233.   /* Change G to 3 (0011 = 3): */
  234.   SetAPen( &my_rast_port, BIN(1,1,0,0,1,1) );
  235.   RectFill( &my_rast_port, 30, 90, 50, 130 );
  236.  
  237.   /* Change G to 7 (0111 = 7): */
  238.   SetAPen( &my_rast_port, BIN(1,1,0,1,1,1) );
  239.   RectFill( &my_rast_port, 50, 90, 70, 130 );
  240.  
  241.   /* Change G to 11 (1011 = 11): */
  242.   SetAPen( &my_rast_port, BIN(1,1,1,0,1,1) );
  243.   RectFill( &my_rast_port, 70, 90, 90, 130 );
  244.  
  245.   /* Change G to 13 (1101 = 13): */
  246.   SetAPen( &my_rast_port, BIN(1,1,1,1,0,1) );
  247.   RectFill( &my_rast_port, 90, 90, 110, 130 );
  248.  
  249.   /* Change G to 15 (1111 = 15): */
  250.   SetAPen( &my_rast_port, BIN(1,1,1,1,1,1) );
  251.   RectFill( &my_rast_port, 110, 90, 130, 130 );
  252.  
  253.  
  254.  
  255.   /* Change the basecolour: (Black, dark grey, ... light grey, white) */
  256.   /* As you will notice, not only the base colour will change! Since  */
  257.   /* all rectangles' colours are modified versions of the base colour */
  258.   /* they will also change as the base colour change.                 */
  259.   for( loop = 0; loop < COLOURS; loop++ )
  260.   {
  261.     Delay( 50 );
  262.     SetAPen( &my_rast_port, loop );
  263.     RectFill( &my_rast_port, 10, 10, 30, 130 );
  264.   }
  265.   Delay( 50 );
  266.  
  267.  
  268.  
  269.   /* 9. Restore the old View: */
  270.   LoadView( my_old_view );
  271.  
  272.  
  273.   /* Free all allocated resources and leave. */
  274.   clean_up( "THE END" );
  275. }
  276.  
  277.  
  278. /* Returns all allocated resources: */
  279. void clean_up( message )
  280. STRPTR message;
  281. {
  282.   int loop;
  283.  
  284.   /* Free automatically allocated display structures: */
  285.   FreeVPortCopLists( &my_view_port );
  286.   FreeCprList( my_view.LOFCprList );
  287.   
  288.   /* Deallocate the display memory, BitPlane for BitPlane: */
  289.   for( loop = 0; loop < DEPTH; loop++ )
  290.     if( my_bit_map.Planes[ loop ] )
  291.       FreeRaster( my_bit_map.Planes[ loop ], WIDTH, HEIGHT );
  292.  
  293.   /* Deallocate the ColorMap: */
  294.   if( my_view_port.ColorMap ) FreeColorMap( my_view_port.ColorMap );
  295.  
  296.   /* Close the Graphics library: */
  297.   if( GfxBase ) CloseLibrary( GfxBase );
  298.  
  299.   /* Close the Intuition library: */
  300.   if( IntuitionBase ) CloseLibrary( IntuitionBase );
  301.  
  302.   /* Print the message and leave: */
  303.   printf( "%s\n", message ); 
  304.   exit();
  305. }
  306.